10 REM ****** THE INDEX FILE ******
20 :
30 GOTO 50000
100 :
101 : REM POSITION CURSOR
102 :
110 POKE 781,L-1: POKE 782,C-1: POKE 783,0: SYS 65520: RETURN
200 :
201 : REM TOP AND BOTTOM LINE
202 :
210 IF RIGHT$(TL$,1)="[160]" THEN TL$=LEFT$(TL$,LEN(TL$)-1): GOTO 210
220 IF RIGHT$(TL$,1)=" " THEN TL$=LEFT$(TL$,LEN(TL$)-1): GOTO 220
230 PRINT "[147]"
240 :&T: L=1: C=(40-LEN(TL$))/2: GOSUB 100
250 PRINT "[154]" TL$ "[146]" ;
300 :
301 : REM BOTTOM LINE
302 :
310 :&B: L=25: C=(41-LEN(BL$))/2
320 IF LEFT$(BL$,1)="[129]" THEN C=C+1
330 GOSUB 100
340 PRINT "[154]" BL$ "[146]" ;
350 RETURN
400 :
401 : REM TEXT SCREEN
402 :
410 GOSUB 200
420 L=2: C=(40-LT)/2: GOSUB 100: PRINT "[153]<[154]" SC$(0) "[153]>[154]";
430 FOR I=1 TO 22
440 L=I+2: C=1: GOSUB 100: PRINT "[153]<[154]" SC$(I) "[153]>[154]";
450 NEXT I
460 RETURN
500 :
501 : REM WAIT FOR KEY
502 :
510 GET K$: IF K$="" THEN 510
520 RETURN
600 :
601 : REM PRINT RECORD
602 :
610 J=22
620 IF SC$(J)=LEFT$(SP$,38) THEN J=J-1: GOTO 620
630 OPEN 4,4,7
640 FOR I=0 TO J: PRINT#4,SC$(I): NEXT I
650 CLOSE 4
660 RETURN
700 :
701 : REM DELETE TEXT LINES AND INDEXES
702 :
705 UP=-1
710 SYS BA+39,RN%,LN%
715 IF LN%=0 THEN 765
720 LH=INT(LN%/256): LL=LN% AND 255
725 PRINT#15,"P"+CHR$(96+2)+CHR$(LL)+CHR$(LH)+CHR$(1)
730 GOSUB 800: IF ER THEN 790
735 PRINT#2,CHR$(254);
740 GOSUB 800: IF ER THEN 790
745 IF (LN%*47)-(INT(LN%*47/254)*254) >= 47 THEN 710
750 PRINT#15,"P"+CHR$(96+2)+CHR$(LL)+CHR$(LH)+CHR$(1)
752 GOSUB 800
755 INPUT#2,X1$
760 GOTO 710
765 SYS BA+42,RN%: SYS BA+30,RN%: SYS BA+15,RN%
770 UP=-1: RETURN
790 IF K$="" THEN RETURN
795 GOTO 710
800 :
801 : REM READ DISK STATUS
802 :
810 INPUT#15,ER,ET$,ET,ES
820 IF ER=0 THEN RETURN
830 BL$="[129]"+ET$+"[154]": GOSUB 300: GOSUB 500
840 RETURN
1000 :
1010 : REM MAIN MENU
1020 :
1030 BL$="[197]NTER SELECTION"
1040 GOSUB 200
1050 X1$="          "
1060 L=4: C=1: GOSUB 100
1070 PRINT X1$ "[158][211][154]  [158][211][197][193][210][195][200][154] FOR RECORDS
1080 [153] X1$ "SYSATNCONT  SYSATNSTR$STR$CONT NEW RECORDS
1090 PRINT X1$ "[158][204][154]  [158][204][201][211][212][154] TITLES
1100 [153] X1$ "SYS(null)CONT  SYS(null)(null)RIGHT$(null)(null)CONT TITLES
1110 PRINT X1$ "[158][195][154]  [196]ISPLAY FILE [158][195][193][208][193][195][201][212][217][154]
1120 [153] X1$ "SYSASCCONT  (null)WITCH TO ANOTHER SYSASCRIGHT$(null)VALCONT
1130 PRINT X1$ "[158][206][154]  [195]REATE [158][206][197][215][154] FILE
1140 [153] X1$ "SYS(null)CONT  SYS(null)VALPEEK(null)RIGHT$(null)STR$CONT INDEX
1150 PRINT X1$ "[158][197][154]  [158][197][216][201][212][154] PROGRAM
1160 L[178]12: C[178]1: [141] 100
1170 [153] "  PRINTORTAN^CONT"
1180 [153] "  PRINT(null)CONT PRINT(null)CONT"
1190 [153] "  PRINT/TANEXPCONT"
1200 L[178]13: C[178]4
1210 SL$[178]" "
1220 [151] 2,1: [141] 500: [151] 2,0
1230 [139] K$[178]"" [167] 1000
1240 [139] K$[178]CR$ [167] 1270
1250 [139] K$[179]"A" [176] K$[177]"Z" [167] 1220
1260 SL$[178][199]([198](K$)[176]128): [141] 100: [153] SL$;: [137] 1220
1270 [129] SL[178]1 [164] 9
1280 [139] SL$ [178] [202]("(null)ATN(null)(null)LENASC(null)(null)VAL",SL,1) [167] 1310
1290 [130] SL
1300 [137] 1160
1310 [139] FO [167] 1330
1320 [139] SL[179]6 [176] SL[178]8 [167] BL$[178]"FORASCILE NOT OPENCONT": [141] 300: [137] 1160
1330 [145] SL [141] 2000,7000,8000,9000,11000,12000,13000,14000,15000
1340 [137] 1000
2000 :
2001 : [143] SEARCH SCREEN
2002 :
2010 [129] I[178]0 [164] 11: KW$(I)[178][200](SP$,LK): [130] I
2020 X1$[178]"(null)VALATN(null)LENLEFT$CLOSEASC(null)(null)CLOSE(null)VALLEN(null)(null)STR$(null)"
2025 BL$[178]"VALNTER KEYWORDS": [141] 200
2030 L[178]3: C[178](40[171][195](X1$))[173]2: [141] 100
2040 [153] "SYS" X1$ "CONT": [153]
2050 X1$[178]"OR": X2$[178]"TANTAN": X3$[178]"^": X4$[178]"PRINT(null)CONTSYSATNCONTSYS(null)CONTSYSSTR$CONT"
2055 X[178]LK[173]2: Y[178]LK[171]X
2060 [129] I[178]0 [164] 2
2070 [153] "PRINT       " X1$ [200](LI$,X) X2$ [200](LI$,Y) X3$
2080 [129] J[178]0 [164] 3
2090 [153] "       " [202](X4$,J[172]3[170]1,3) "STOP<CONT" KW$(I[172]4[170]J) "STOP>PRINT(null)"
2100 [130] J
2110 X1$[178]"-": X2$[178]"SYS(null)(null)PRINT": X3$[178]"<"
2120 [130] I
2130 X1$[178]"/": X2$[178]"TANTAN": X3$[178]"EXP"
2140 [153] "       " X1$ [200](LI$,X) X2$ [200](LI$,Y) X3$ "CONT"
2160 [129] I[178]0 [164] 11
2170 SC$(I)[178][200](SP$,LK)
2180 [130] I
2190 [151] 144,0: [151] 2,2: &E(0): [151] 2,0
2200 [139] ST[178]1 [167] [142]
2205 [129] I[178]0 [164] 11: KW$(I)[178]SC$(I): [130] I
2210 [129] K[178]0 [164] MW: H1%(K)[178]0: [130] K
2220 [129] I[178]0 [164] 8 [169] 4
2230 [129] K[178]0 [164] MW: H2%(K)[178][171]1: [130] K
2240 NB[178]0
2250 [129] J[178]0 [164] 3
2260 [139] SC$(I[170]J)[178][200](SP$,LK) [167] 2360
2270 NB[178]1
2280 [158] BA[170]12,SC$(I[170]J),RN%
2290 [139] RN%[178]0 [167] 2400
2300 [129] K[178]0 [164] MW: H3%(K)[178]0: [130] K
2310 RW[178][181](RN%[173]16): RB[178]B%(RN% [175] 15)
2320 H3%(RW)[178]H3%(RW) [176] RB
2330 [158] BA[170]18,RN%
2340 [139] RN%[179][177]0 [167] 2310
2350 [129] K[178]0 [164] MW: H2%(K)[178]H2%(K) [175] H3%(K): [130] K
2360 [130] J
2370 [139] NB[178]0 [167] 2400
2380 NH[178]1
2390 [129] K[178]0 [164] MW: H1%(K)[178]H1%(K) [176] H2%(K): [130] K
2400 [130] I
2420 NH[178]0
2430 [129] I[178]0 [164] MW
2440 [139] H1%(I)[178]0 [167] 2500
2450 [129] J[178]0 [164] 15
2460 [139] (H1%(I) [175] B%(J))[178]0 [167] 2490
2470 NH[178]NH[170]1
2480 H%(NH) [178] I[172]16 [170] J
2490 [130] J
2500 [130] I
2510 [139] NH[178]0 [167] BL$[178]"FOR(null)O MATCHING RECORDS FOUNDCONT": [141] 300: [137] 2160
2520 [139] NH[178]1 [167] RN%[178]H%(1): [141] 4000: [137] 2020
2530 [141] 3000: [137] 2020
3000 :
3010 : [143] MULTIPLE HIT SCREEN
3020 :
3030 HN[178]1
3040 [139] SL[178]1 [167] X1$[178]"(null)(null)(null)(null)RIGHT$(null)(null)VAL (null)VALLEN(null)(null)STR$(null) ASC(null)(null)(null)STR$"
3041 [139] SL[178]3 [167] X1$[178]"(null)VALLEN(null)(null)STR$ (null)RIGHT$(null)(null)VAL(null)"
3050 BL$[178]"(null)ELECT RECORD"
3060 [141] 200
3070 L[178]3: C[178](40[171][195](X1$))[173]2: [141] 100
3080 [153] "SYS" X1$ "CONT": [153]
3090 FH[178]HN
3110 [158] BA[170]24,H%(HN),X2$
3120 X3$[178][202]([196](HN),2,3)
3130 [153] "SYS" [200](SP$,3[171][195](X3$)) X3$ ":CONT " X2$
3140 [153]
3160 [139] HN[179]FH[170]8 [175] HN[179]NH [167] HN[178]HN[170]1: [137] 3110
3170 L[178]23: C[178]1: [141] 100
3180 [153] "PRINT(CONT   PRINT)CONT"
3190 [139] NH[179][178]9 [167] 3230
3200 L[178]23: C[178]7: [141] 100
3210 [139] HN[179]NH [167] [153] "PRINT(null)RESS ASC1 KEY FOR MORECONT"
3220 [139] HN[178]NH [167] [153] "PRINT(null)RESS ASC1 KEY TO START OVERCONT"
3230 SC$(0)[178][200](SP$,3)
3240 [151] 144,0: [151] 2,4: &F(0): [151] 2,0
3250 [139] ST[178]0 [167] 3300
3260 [139] ST[178]1 [167] [142]
3270 [139] NH[179]9 [176] ST[179][177]2 [167] 3170
3280 [139] HN[177][178]NH [167] HN[178]1: [137] 3060
3290 HN[178]HN[170]1: [137] 3060
3300 I [178] [197](SC$(0))
3310 [139] I[179]1 [176] I[177]NH [167] [141] 300: [137] 3230
3320 RN%[178]H%(I): [141] 4000: HN[178]FH: [137] 3040
4000 :
4010 : [143] SINGLE HIT SCREEN
4020 :
4030 SC$(0)[178][200](SP$,LT)
4040 [129] I[178]1 [164] 22:SC$(I)[178][200](SP$,38): [130] I
4050 LN%[178]0
4060 [158] BA[170]39,RN%,LN%
4070 [139] LN%[178]0 [167] 4170
4080 LH[178][181](LN%[173]256): LL[178]LN% [175] 255
4090 [152]15,"P"[170][199](96[170]2)[170][199](LL)[170][199](LH)[170][199](1)
4100 [141] 800: [139] ER [167] 4530
4110 [132]2,X1$,X2$,X3$
4120 [141] 800: [139] ER [167] 4530
4130 [139] [197](X1$)[179][177]RN% [167] 4500
4140 I[178][197](X2$): [139] I[177]22 [167] 4510
4150 SC$(I) [178] X3$
4160 [137] 4060
4170 BL$[178]"ASC3 TO PRINT,ASC5 TO MODIFY,ASC8 TO DELETE"
4180 [141] 400
4190 [151] 2,5: [141] 500: [151] 2,0
4200 [139] K$[178]"" [167] [142]
4210 [139] K$[178]"DIM" [167] [141] 600: [137] 4190
4220 [139] K$[178]"READ" [167] 5000
4230 [139] K$[178]"RESTORE" [167] [141] 700: [142]
4240 [137] 4190
4500 BL$[178]"FORRIGHT$(null)STR$VAL(null)CLOSERIGHT$(null)CLOSELEN(null)(null)(null)(null)(null)(null)VALSTR$CONT": [137] 4520
4510 BL$[178]"FOR(null)VAL(null)(null) ASCRIGHT$(null)VAL RIGHT$(null) LEN(null)(null)(null)(null)(null)(null)VALSTR$CONT"
4520 [141] 300: [141] 500
4530 [139] K$[178]"" [167] [142]
4540 [137] 4060
5000 :
5010 : [143] MODIFY RECORD
5020 :
5030 BL$[178]"(null)ODIFY TEXT"
5040 [141] 400
5050 [151] 144,0: [151] 2,5: &E(0): [151] 2,0
5060 [139] ST[178]1 [167] [142]
5070 [141] 700
5080 [151] RA[170]1[170]RN%,1
5090 [141] 10000
5100 [139] ER [167] 5500
5110 [142]
5500 [139] K$[178]"" [167] [142]
5510 [137] 5030
7000 :
7010 : [143] ADD NEW RECORD
7020 :
7030 SC$(0) [178] [200](SP$,LT)
7040 [129] I[178]1 [164] 22
7050 SC$(I) [178] [200](SP$,38)
7060 [130] I
7070 BL$[178]"VALNTER TITLE AND TEXT"
7080 [141] 400
7090 [151] 144,0: [151] 2,3: &E(0): [151] 2,0
7100 [139] ST[178]1 [167] [142]
7105 RN%[178]0
7110 [141] 10000
7120 UP[178][171]1
7130 [139] ER [167] 7500
7140 [137] 7000
7500 [139] K$[178]"" [167] [142]
7510 [137] 7070
8000 :
8010 : [143] LIST TITLES
8020 :
8030 NH[178]0
8040 RN%[178]0
8050 [158] BA[170]27,RN%
8060 [139] RN%[178]0 [167] 8100
8070 NH[178]NH[170]1
8080 H%(NH)[178]RN%
8090 [137] 8050
8100 [139] NH[178]0 [167] [142]
8110 [137] 3000
9000 :
9010 : [143] PRINT TITLES
9020 :
9030 [159] 4,4,7
9040 NL[178]99: HN[178]0
9050 RN%[178]0
9060 [158] BA[170]27,RN%
9070 [139] RN%[178]0 [167] [160] 4: [142]
9080 HN[178]HN[170]1
9090 [158] BA[170]24,RN%,X1$
9100 X2$[178][202]([196](HN),2,3)
9110 [139] NL[179]60 [167] 9140
9120 [139] NL[179][177]99 [167] [129] I[178]NL [164] 66: [152]4: [130] I
9130 [152]4,TL$: [152]4: NL[178]2
9140 [152]4,[200](SP$,3[171][195](X2$)) X2$ ": " X1$: [152]4
9150 NL[178]NL[170]2
9160 [137] 9060
10000 :
10010 : [143] STORE RECORD
10020 :
10030 UP[178][171]1
10040 [139] RN%[178]0 [167] [158] BA[170]33,RN%: [139] RN%[178]0 [167] 10510
10050 [129] I[178]0 [164] 22
10060 [139] I[179][177]0 [167] 10100
10070 [139] SC$(I)[178][200](SP$,LT) [167] 10500
10080 [158] BA[170]21,SC$(I),RN%
10090 [137] 10110
10100 [139] SC$(I)[178][200](SP$,38) [167] 10210
10110 [158] BA[170]36,RN%,LN%: [139] LN%[178]0 [167] 10510
10120 LH[178][181](LN%[173]256): LL[178]LN% [175] 255
10130 [152]15,"P"[170][199](96[170]2)[170][199](LL)[170][199](LH)[170][199](1)
10140 [141] 800: [139] ER [167] 10530
10150 X1$[178][202]([196](RN%[170]1000),3,3)
10160 X2$[178][202]([196](I[170]100),3,2)
10170 [152]2,X1$[170]CR$[170]X2$[170]CR$[170]QT$[170]SC$(I)[170]QT$ ;
10180 [141] 800: [139] ER [167] 10530
10182 [139] (LN%[172]47)[171]([181](LN%[172]47[173]254)[172]254) [177][178] 47 [167] 10190
10184 [152]15,"P"[170][199](96[170]2)[170][199](LL)[170][199](LH)[170][199](1)
10185 [141] 800
10186 [132]2,X1$
10190 [158] BA[170]9,SC$(I),RN%
10200 [139] ST[179][177]0 [167] 10510
10210 [130] I
10220 ER[178]0
10230 [142]
10500 BL$[178]"FOR(null)ITLE LINE IS REQUIREDCONT": [137] 10520
10510 BL$[178]"FORASCRIGHT$(null)VAL RIGHT$(null) ASC(null)(null)(null)CONT"
10520 ER[178]1: [141] 300: [141] 500
10530 [139] RN%[179][177]0 [167] [141] 700
10540 [142]
11000 :
11010 : [143] DISPLAY FILE CAPACITY
11020 :
11030 [158] BA[170]45,KW%,RC%,LN%
11040 BL$[178]"(null)RESS ANY KEY"
11050 [141] 200
11060 L[178]3: C[178]14: [141] 100
11070 [153] "PRINTASCRIGHT$(null)VALCLOSELENATN(null)ATNLENRIGHT$(null)(null)CONT";
11080 L[178]5: C[178]5: [141] 100
11090 [153] "SYS" KW% "PRINTKEYWORDS USED OUT OFSYS" MK "CONT"
11100 L[178]7: [141] 100
11110 [153] "SYS" RC% "PRINTRECORDS USED OUT OFSYS" MR "CONT"
11120 L[178]9: [141] 100
11130 [153] "SYS" LN% "PRINTTEXT LINES USED OUT OFSYS" ML "CONT"
11140 [141] 500
11150 [142]
12000 :
12010 : [143] SWITCH FILES
12020 :
12030 [141] 16000
12040 [141] 17000
12050 [142]
13000 :
13010 : [143] CREATE FILE
13020 :
13030 [141] 16000
13040 TL$[178]" ": BL$[178]"      "
13050 [141] 200
13060 L[178]8 : C[178]6: [141] 100
13070 [153] "SYSASCILE NAME <CONT                 SYS>CONT"
13080 BL$[178]"VALNTER FILE NAME"
13090 [141] 300
13100 SC$(0)[178][200](SP$,17)
13110 [151] 144,0: [151] 2,6: &F(0): [151] 2,0
13120 [139] ST[178]1 [167] [141] 17000: [142]
13140 [139] SC$(0)[178][200](SP$,17) [167] 13110
13150 L[178]10: C[178]6: [141] 100
13160 [153] "SYSSTR$ISK RIGHT$STR$   <CONT  SYS>CONT"
13170 BL$[178]"VALNTER DISK RIGHT$STR$ CODE"
13180 [141] 300
13190 SC$(1)[178][200](SP$,2)
13200 [151] 144,0: [151] 2,6: &F(1): [151] 2,0
13210 [139] ST[178]1 [167] [141] 17000: [142]
13225 [139] SC$(1)[178][200](SP$,2) [167] 13200
13230 L[178]12: C[178]6: [141] 100
13240 [153] "SYSRIGHT$NSERT BLANK DISKCONT"
13250 L[178]14: C[178]6 : [141] 100
13260 [153] "SYS(null)RESS ANY KEY WHEN READYCONT"
13270 [141] 500
13280 [139] K$[178]"" [167] [142]
13290 L[178]12: C[178]1: [141] 100: [153] SP$
13300 L[178]14: C[178]1: [141] 100: [153] SP$
13310 BL$[178]"ASCORMATTING DISK": [141] 300
13320 [152]15,"N0:" SC$(0) "," SC$(1)
13330 [141] 800: [139] ER [167] 13500
13350 BL$[178]"LENREATING TEXT FILE": [141] 300
13360 [159] 2,8,2,"TEXT,L,"[170][199](47)
13362 LH[178][181](ML[173]256): LL[178]ML [175] 255
13364 [152]15,"P"[170][199](96[170]2)[170][199](LL)[170][199](LH)[170][199](1)
13366 [152]2,[199](255);
13368 [160] 2
13370 [159] 2,8,2,"TEXT"
13380 FO[178][171]1
13390 TL$[178]SC$(0)
13395 BL$[178]"LENREATING INDEX FILE": [141] 200
13396 L[178]3: C[178]1: [141] 100
13400 [158] BA[170]0: UP[178][171]1
13402 [152]15,"S0:TITLES"
13404 [152]15,"S0:KEYWORDS"
13406 [152]15,"S0:LINES"
13408 [152]15,"S0:RECORDS"
13410 [158] BA[170]6
13415 [153]
13420 [141] 800: [139] ER [167] 13700
13430 UP[178]0
13440 TL$[178]SC$(0)
13450 [142]
13500 [139] K$[178]"" [167] [142]
13510 [137] 13230
13600 [160] 2
13610 [139] K$[178]"" [167] [142]
13620 [137] 13350
13700 [139] K$[178]"" [167] [142]
13710 [137] 13390
14000 :
14010 : [143] REBUILD INDEX
14020 :
14030 BL$[178]"(null)EBUILDING INDEX": [141] 200
14040 L[178]12: C[178]14
14050 [158] BA[170]0: LP[178]0: RP[178]0
14060 [129] I[178]1 [164] ML: LN%[178]I
14070 [141] 100: [153] "SYS(null)EXT LINECONT" I
14080 LH[178][181](I[173]256): LL[178]I [175] 255
14090 [152]15,"P"[170][199](96[170]2)[170][199](LL)[170][199](LH)[170][199](1)
14100 [141] 800
14110 [139] ER [167] 14500
14120 [132]2,X1$,X2$,X3$
14124 [141] 800
14125 [139] ER [167] 14500
14126 [139] X1$[178][199](255) [167] 14200
14140 RN%[178][197](X1$): [139] RN%[179][178]0 [176] RN%[177]MR [167] 14190
14142 [139] [197](X2$) [179][177] 0 [167] 14160
14144 [158] BA[170]24,RN%,X4$
14146 [139] X4$[179][177]"" [167] 14190
14150 [158] BA[170]21,X3$,RN%
14160 [158] BA[170]9,X3$,RN%
14170 [151] RA[170]1[170]RN%,1: [139] RN%[177]RP [167] RP[178]RN%
14180 [151] LA[170]1[170]LN%,RN%: [139] LN%[177]LP [167] LP[178]LN%
14190 [130] I
14200 [151] RA,RP[170]2
14210 [151] LA,(LP[170]2) [175] 255
14220 [151] LA[170]1,[181]((LP[170]2)[173]256)
14230 UP[178][171]1
14240 [141] 16000
14250 BL$[178]"(null)PENING TEXT FILE": [141] 300
14260 [159] 2,8,2,"TEXT"
14270 [141] 800: [139] ER [167] 14600
14280 FO[178][171]1
14290 [137] 11000
14500 [139] K$[178]"" [167] 14200
14510 BL$[178]"LENONTINUING": [141] 300: [137] 14190
14600 [160] 2
14610 [139] K$[178]"" [167] [142]
14620 [137] 14250
15000 :
15010 : [143] EXIT
15020 :
15030 [141] 16000
15040 [153] "LOAD"
15050 [128]
16000 :
16010 : [143] CLOSE FILE
16020 :
16030 [139] [168] FO [167] 16090
16040 BL$[178]"LENLOSING TEXT FILE": [141] 200
16050 [160] 2
16060 FO[178]0
16070 [141] 800
16090 [139] [168] UP [167] 16140
16100 BL$[178]"(null)AVING INDEX DATA": [141] 200
16110 L[178]3: C[178]1: [141] 100
16112 [152]15,"S0:TITLES"
16114 [152]15,"S0:KEYWORDS"
16116 [152]15,"S0:LINES"
16118 [152]15,"S0:RECORDS"
16120 [158] BA[170]6
16125 [153]
16130 [141] 800
16140 UP[178]0
16150 [142]
17000 :
17010 : [143] OPEN FILE
17020 :
17030 TL$[178]" ": BL$[178]"      "
17040 [141] 200
17050 L[178]12: C[178]13: [141] 100
17060 [153] "SYSRIGHT$NSERT DATA DISKCONT"
17070 L[178]14: C[178]9: [141] 100
17080 [153] "SYS(null)RESS ANY KEY WHEN READYCONT"
17090 [141] 500
17100 [139] K$[178]"" [167] [142]
17110 L[178]12: C[178]1: [141] 100: [153] SP$
17120 L[178]14: C[178]1: [141] 100: [153] SP$
17130 [152]15,"I0:";
17140 [141] 800: [139] ER [167] 17500
17150 [159] 1,8,0,"$0"
17160 [141] 800: [139] ER [167] 17500
17170 [161]#1,X1$
17180 [139] X1$[179][177]QT$ [167] 17170
17190 TL$[178]""
17200 [161]#1,X1$
17210 [139] X1$[179][177]QT$ [167] TL$[178]TL$[170]X1$: [137] 17200
17220 [160] 1
17230 BL$[178]"(null)PENING TEXT FILE": [141] 200
17240 [159] 2,8,2,"TEXT"
17250 [141] 800: [139] ER [167] 17500
17260 FO[178][171]1
17270 BL$[178]"(null)OADING INDEX DATA": [141] 300
17280 L[178]3: C[178]1: [141] 100
17290 [158] BA[170]0: [158] BA[170]3
17300 [141] 800: [139] ER [167] 17600
17310 UP[178]0
17320 [142]
17500 [160] 2
17505 [139] K$[178]"" [167] [142]
17510 [137] 17130
17600 [160] 2
17610 [139] K$[178]"" [167] [142]
17620 [137] 17270
50000 :
50010 : [143] INITIALIZATION
50020 :
50030 [139] I[179][177]0 [167] 50140
50040 I[178]1
50050 [153] "LOAD" [199](14) [199](8)
50060 [151] 53280,12: [151] 53281,0
50070 L[178]10: C[178]14: [141] 100
50080 [153] "SYS(null)LEFT$VAL RIGHT$(null)STR$VAL(null) ASCRIGHT$(null)VALCONT"
50090 L[178]13: C[178]15: [141] 100
50100 [153] "PRINTBY MID$EFF PEEKEANCONT"
50110 L[178]15: C[178]12: [141] 100
50120 [153] "PRINT(null)AN ASCRANCISCO, LENA.CONT"
50122 L[178]17: C[178]17: [141] 100
50124 [153] "PRINT01/26/84CONT"
50130 [147] "SCREEN",8,1
50140 [139] I[179][177]1 [167] 50162
50150 I[178]2
50160 [147] "FILE.BIN",8,1
50162 [139] I[179][177]2 [167] 50170
50164 I[178]3
50166 [147] "HELP",8,1
50170 [158] 49152: &C,"CONTPRINT#STOP": [153]"LOAD" [199](14) [199](8): &S
50180 BA[178]16640
50190 LH[178][181](BA[173]256): LL[178]BA [175] 255
50200 [151] 51,LL: [151] 52,LH
50210 [151] 53,LL: [151] 54,LH
50220 [151] 55,LL: [151] 56,LH: [156]
50230 BA[178]16640
50235 [151] 2,0
50240 SP$[178]"                                               "
50250 LI$[178]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
50260 CR$[178][199](13): QT$[178][199](34)
50270 LK[178]20: LT[178]34: MR[178]200: MW[178][181](MR[173]16): ML[178]2923: MK[178]800: LA[178]45824: RA[178]48896
50280 [134] SC$(22),KW$(11),H%(MR),H1%(MW),H2%(MW),H3%(MW),B%(15)
50290 B%(0)[178]1: B%(15)[178][171]32768
50300 [129] I[178]1 [164] 14: B%(I)[178]B%(I[171]1)[172]2: [130] I
50310 [159] 15,8,15
50320 FO[178]0: UP[178]0
50330 [141] 17000
50340 [137] 1000
60000 :
60010 : [143] *** PROGRAM RENUMBER ****
60020 :
60030 A[178]2049:B[178]256:[153]"LO/HI LINES, NEW START, INCREMENT":[133] L,H,S,I
60040 [129] R[178]0 [164] 5E4: [139] [194](A[170]2)[170]B[172][194](A[170]3)[179]L [167] A[178][194](A)[170]B[172][194](A[170]1):[130]
60050 [129] R[178]0 [164] 5E4: X[178]S[170]R[172]I: [139] A[178]0 [176] [194](A[170]2)[170]B[172][194](A[170]3)[177]H [167] [128]
60060 [151] A[170]3,[181](X[173]B): [151] A[170]2,X[171]([181](X[173]B))[172]B: A[178][194](A)[170]B[172][194](A[170]1): [130]
60070 [128]
61000 :
61010 : [143] *** PROGRAM LIST ***
61020 :
61030 [159] 4,4,6
61040 [152]4,[199](27)[199](78)[199](6);
61050 [160] 4: [159] 4,4,0
61060 [152]4,[199](27)[199](70)[199](1);
61070 [160] 4: [159] 4,4,4
61080 [157]4: [155]: [128]